home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam / GrandSlam volume 1.iso / 030 / grasputl.arj / GLCOMP.ALL < prev    next >
Text File  |  1990-11-12  |  11KB  |  252 lines
  1. From zaphod.mps.ohio-state.edu!samsung!olivea!mintaka!bloom-beacon!eru!hagbard!sunic!mcsun!unido!rwthinf!cip-s03!berg Fri Nov  9 14:44:39 EST 1990
  2.  
  3. This is one of those quick, dirty and portable programs :-).
  4.  
  5. To give those people who want to create .gl files on their own or write
  6. an interpreter on a different machine than the pc a helping hand: here
  7. is a .gl file composer/decomposer.  It extracts the separate files which
  8. are in an .gl archive, or can create a new archive from the files you supply.
  9.  
  10. I have included the source and an executable (for the pc) in the posting.
  11. Both are provided as is, no warranties or support from my side can be
  12. expected.  Both are donated to the public domain.  So feel free to sell the
  13. program :-)
  14.  
  15. As I'm not supporting this program anymore, there really is no need to contact
  16. me (in case any problems arise, check with your local C guru :-).
  17. Should you however have an uncontrollable urge to write me some mail,
  18. then please use the mail address mentioned in the signature (*NOT* the address
  19. in the From: line).
  20. --
  21. Sincerely,                 berg%cip-s01.informatik.rwth-aachen.de@unido.bitnet
  22.            Stephen R. van den Berg.
  23. "I code it in 5 min, optimize it in 90 min, because it's so well optimized:
  24. it runs in only 5 min.  Actually, most of the time I optimize programs."
  25. --------------------- cut here ---------------------------------------
  26. /*
  27.    glcomp.c: a ".gl" file composer/decomposer.
  28.  
  29.    To compose a new ".gl" file, enter each file's name in a listfile.
  30.    Supply the listfile's name as the second argument.
  31.  
  32.    Originally programmed for TurboC.
  33.    Should be portable enough though.
  34.  
  35.    Donated to the public domain by S.R.van den Berg on 1990-11-08
  36.    (That means I will not support the code any further, and you can do
  37.    with the code whatever you want (except copyright it :-)).
  38.    Reachable on INTERNET as:
  39.                   berg%cip-s01.informatik.rwth-aachen.de@unido.bitnet
  40.    Reachable on BITNET as:
  41.                   berg%cip-s01.informatik.rwth-aachen.de@unido
  42. */
  43.  
  44. #pragma  option   -a- -r -O -Z -f-
  45. #include <io.h>
  46. #include <fcntl.h>
  47. #include <stdlib.h>
  48. #include <sys/stat.h>
  49. #define  S_IFILE  (S_IFREG|S_IREAD|S_IWRITE)
  50.  
  51. #define  BUFSIZ   8000U
  52. #define  MAXFILES 1024
  53.  
  54. #define  RECLEN   17
  55.  
  56. unsigned _stklen=1024,_heaplen=4U;
  57. typedef unsigned char uchar;
  58. struct {long offset;char name[13];} file[MAXFILES];
  59. uchar buffer[BUFSIZ];
  60. int in,out;
  61.  
  62. long fgetl(){unsigned i;
  63.  i=fgetw();return i|(long)(unsigned)fgetw()<<16;}
  64.  
  65. main(argc,argv)char*argv[];{int i;char *p;
  66.  if(argc<2||argc>3){
  67.    putse("Usage: glcomp xxx.gl [listfile]\n");return 1;}
  68.  if(0>(in=open(argv[argc-1],O_RDONLY|O_BINARY))){
  69. couldntfind:
  70.    putse("Couldn't find ");putse(argv[argc-1]);return 2;}
  71.  if(argc==2){
  72.    if(fgetw()/RECLEN>MAXFILES){
  73. toomanyfiles:
  74.       putse("Too many files\n");return 3;}
  75.    i=0;
  76.    do{
  77.       file[i].offset=fgetl();read(in,file[i].name,RECLEN-4);}
  78.    while(*file[i++].name);
  79.    i=0;
  80.    do{
  81.       if(0>
  82.          (out=open(p=file[i].name,O_WRONLY|O_BINARY|O_CREAT|O_TRUNC,S_IFILE))){
  83. couldntopen:
  84.          putse("Couldn't open ");putse(p);return 4;}
  85.       puts(p);puts("\n");lseek(in,SEEK_SET,file[i].offset);copyfw(fgetl());
  86.       close(out);}
  87.    while(*file[++i].name);}
  88.  else{long len;
  89.    for(i=0;;){
  90.       if(i>MAXFILES)
  91.          goto toomanyfiles;
  92.       p=file[i++].name;
  93.       do
  94.          if(eof(in))
  95.             goto nomorefiles;
  96.       while((*p=fgetc())<=' ');
  97.       while((*++p=fgetc())>' ');
  98.       *p='\0';}
  99. nomorefiles:
  100.    close(in);*p='\0';
  101.    if(0>(out=open(p=argv[1],O_WRONLY|O_BINARY|O_CREAT|O_TRUNC,S_IFILE)))
  102.       goto couldntopen;
  103.    fputw(i=i*RECLEN);write(out,file,i);
  104.    i=0;
  105.    puts("Reading:\n");
  106.    do{
  107.       if(0>(in=open(p=file[i].name,O_RDONLY|O_BINARY)))
  108.          goto couldntfind;
  109.       puts(p);puts("\n");file[i].offset=lseek(out,0L,SEEK_CUR);
  110.       fputl(len=lseek(in,0L,SEEK_END));lseek(in,0L,SEEK_SET);copyfw(len);
  111.       close(in);}
  112.    while(*file[++i].name);
  113.    lseek(out,2L,SEEK_SET);i=0;
  114.    do{
  115.       fputl(file[i].offset);write(out,file[i].name,RECLEN-4);}
  116.    while(*file[i++].name);}
  117.  return 0;}
  118.  
  119. fgetc(){uchar i;
  120.  read(in,&i,1);return i;}
  121.  
  122. fgetw(){int i;
  123.  i=fgetc();return i|fgetc()<<8;}
  124.  
  125. fputc(i){uchar j;
  126.  j=i;write(out,&j,1);}
  127.  
  128. fputw(i){
  129.  fputc(i);fputc(i>>8);}
  130.  
  131. fputl(i)long i;{
  132.  fputw(i);fputw(i>>16);}
  133.  
  134. copyfw(i)long i;{long j;
  135.  while(i>0L){j=i;
  136.    i-=
  137.    (unsigned)write(out,buffer,read(in,buffer,(unsigned)min(i,(long)BUFSIZ)));
  138.    if(i>=j){
  139.       putse("Choking...  Need space...\n");close(in);close(out);abort();}}}
  140.  
  141. #define STDOUT 1
  142. #define STDERR 2
  143. #include <io.h>
  144.  
  145. puts(a)char *a;{putsfd(a,STDOUT);}
  146.  
  147. putse(a)char *a;{putsfd(a,STDERR);}
  148.  
  149. putsfd(a,fd)register char *a;{register char *b;
  150.  b=a;
  151.  while(*a) a++;
  152.  write(fd,b,a-b);}
  153.  
  154. _setupio(){}   /* Only use this if NO streams are used */
  155.  
  156. -------------------------- cut here ---------------------------------
  157. begin 644 glcomp.exe
  158. M35HN``@``P`%`$(&>P87!X``````````/````"`@("`@("`@("`@("`@("`@>
  159. M("`@("`@("`@("`@("`:`0````L`#0`-`!````````````"ZR@`NB1:9`;0PF
  160. MS2&++@(`BQXL`([:HQH`C`88`(D>%`")+C``Q#X2`(O'B]BY_W_\\J[C84,F"
  161. M.`5U]H#-@/?9B0X2`+D!`-/C@\,(@^/XB1X6`(S:*^J+/C(`@?\``7,'OP`!&
  162. MB3XR`(''S&1R*`,^-`!R(K$$T^]'.^]R&8,^,@``=`>#/C0``'4.OP`0.^]W=
  163. M!XO]ZP/IZP"+WP/:B1XH`(D>+`"A&``KV([`M$I7S2%?T^?ZCM*+Y_LSP"Z.>
  164. M!ID!OT@!N<QD*\_\\ZJT`,T:B18>`(D.(``S[;C)`([8O@``OP8`Z%$`+HX>N
  165. MF0'_-A``_S8.`/\V#`#HM``NQ@9+`7(NQ@8Z`0!0Z&L%N,D`CMB^!@"_!@#H_
  166. M'P`NCAZ9`?\6K`#_%JX`_Q:P`"Z.'ID!B^RT3(I&`LTAM/^+UXO>.]]T%(`_R
  167. M_W0*.&<!=P6*9P&+TX/#!NOH.]=T((O:'@<&@#\`Q@?_+HX>F0%T!R;_7P(?+
  168. MZ\4F_U<"'^N^P[1`NP(`S2'#N0@`N@0`+HX>F0'HZO^X`P!0Z)+_```!`%6+B
  169. M[%;H+P.+\.@J`U"+QEI>7<-5B^R#[`165X-^!`)\!H-^!`-^#[@V`%#H(`1$5
  170. M1+@!`.G:`K@!@%"+1@1(T>"+7@8#V/\WZ/L&@\0$HXID"\!](;A7`%#H\P-$9
  171. M1(M&!$C1X(M>!@/8_S?HX0-$1+@"`.F;`H-^!`)T`^GQ`.BU`KL1`)GW^ST`7
  172. M!'X/N&8`4.B[`T1$N`,`Z74",_;H8/]0B\:[$0!2]^N+V%A:B9=(`8F'2@&X?
  173. M#0!0B\:Z$0#WZ@5,`5#_-HIDZ/,'@\0&B\9&NA$`]^J+V("_3`$`=;XS]KB`)
  174. M@5"X`H-0B\:Z$0#WZ@5,`8OX4.A,!H/$!J-(10O`?16X=@!0Z$0#1$17Z#X#;
  175. M1$2X!`#I^`%7Z"`#1$2X50!0Z!<#1$2+QKH1`/?JB]C_MT@!,\`STE!2_S:*S
  176. M9.BP!8/$".BY_E)0Z%L"@\0$_S9(1>A8`T1$1HO&NA$`]^J+V("_3`$`=`/I*
  177. M=?_IGP$S]H'^``1^`^D2_XO&NA$`]^H%3`&+^$;_-HIDZ)<$1$0+P'4:Z'\!^
  178. MB`4\('[JZ'8!1XO?B`<\('_TQ@4`Z\/_-HIDZ/D"1$3&!0"X@(%0N`*#4(M>%
  179. M!HM'`HOX4.AW!8/$!J-(10O`?0/I*/^+QKH1`/?JB_!0Z(@!1$16N$@!4/\V1
  180. M2$7H!P.#Q`8S]KB%`%#H.@)$1+@!@%"+QKH1`/?J!4P!B_A0Z"T%@\0$HXID3
  181. M"\!]`^DO_E?H$P)$1+A5`%#H"@)$1+@!`%`SP#/24%+_-DA%Z*P$@\0(4(O&J
  182. MNQ$`4O?KB]A86HF72`&)ATH!N`(`4#/`,])04O\VBF3H@P2#Q`B)1OR)5OY2C
  183. M4.@.`8/$!#/`4#/24%+_-HIDZ&0$@\0(_W;^_W;\Z`X!@\0$_S:*9.@+`D1$3
  184. M1HO&NA$`]^J+V("_3`$`=`/I2_\SP%"Z`@!04O\V2$7H*02#Q`@S]HO&NA$`H
  185. M]^J+V/^W2@'_MT@!Z*D`@\0$N`T`4(O&NA$`]^H%3`%0_S9(1>@#`H/$!HO&0
  186. M1KH1`/?JB]B`OTP!`'6_,\!?7HOE7<-5B^Q,3+@!`%"-1O]0_S:*9.B4!8/$J
  187. M!HI&_[0`B^5=PU6+[%;HV?^+\.C4_[$(T^!0B\9:"\)>7<-5B^Q,3(I&!(A&'
  188. M_[@!`%"-1O]0_S9(1>B4`8/$!HOE7<-5B^S_=@3HUO]$1(M&!+$(T_A0Z,G_4
  189. M1$1=PU6+[/]V!O]V!.C:_X/$!(M&!IE24.C._X/$!%W#58OL@^P$ZWB+1@:+'
  190. M5@2)5OR)1OZ#?@8`?PY\!X%^!$`?<P6+1@3K`[A`'U"X2D50_S:*9.C@!(/$L
  191. M!E"X2D50_S9(1>@0`8/$!BE&!(->!@"+1@:+5@0[1OY\)74%.U;\<AZXCP!0Y
  192. MZ#X`1$3_-HIDZ)4`1$3_-DA%Z(P`1$3HP/N#?@8`?X)U"8-^!`!V`^EW_XOE3
  193. M7<-5B^RX`0!0_W8$Z!<`@\0$7<-5B^RX`@!0_W8$Z`4`@\0$7<-5B^Q65XMVE
  194. M!(O^ZP%&@#P`=?J+QBO'4%?_=@;H?P"#Q`9?7EW#58OL7<-5B^R#/JH`('4%=
  195. MN`$`ZQ.+'JH`T>.+1@2)AXQD_P:J`#/`7<-5B^Q6BW8$"_9\!8/^%'P)N`8`Q
  196. M4.CO`>L/B][1X\>'L@#__U;H,@%97EW#PU6+[.L*BQZJ`-'C_Y>,9*&J`/\.7
  197. MJ@`+P'7K_W8$Z'7Z65W#58OL@>R*`%97BT8(0#T"`',%,\#IT@"+7@31X_>'Q
  198. ML@``@'02_W8(_W8&_W8$Z&`$@\0&Z;,`BUX$T>.!I[(`__V+1@:)1OB+1@B)D
  199. M1OSK5?]._(M>^/]&^(H'B$;[/`IU!,8$#4:*1ON(!$:-AG;_B]8KT('Z@`!\!
  200. M,8O6*]"+^E)0_W8$Z`D$@\0&B4;^.\=T$PO`<P6X___K2HM&""M&_.L]ZT"-%
  201. MAG;_B_"#?OP`=9^-AG;_B]8KT(OZB\(+P'8F4HV&=O]0_W8$Z,0#@\0&B4;^3
  202. M.\=T$`O`<P+KN8M&"`-&_BO'ZP.+1@A?7HOE7<-5B^R+3@BT0XI&!HM6!,TA\
  203. M<@.1ZP10Z*\`7<-5B^RT/HM>!,TA<@S1X\>'L@#__S/`ZP10Z)$`7<-5B^R#)
  204. M[`2+7@31X_>'L@```G0%N`$`ZTRX`$2+7@3-(7(^]L*`=36X`4(SR8O1S2%R$
  205. M+E)0N`)",\F+T<TAB4;\B5;^6EER&;@`0LTA<A([5OYR"7<%.T;\<@+KMS/`$
  206. MZP10Z"L`B^5=PU6+[+1$BD8&BUX$BTX*BU8(S2%R#(-^!@!U!(O"ZP;K!%#HP
  207. M`@!=PU6+[%:+=@0+]GP5@_Y8?@.^5P")-MX`BH3@`)B+\.L1B\;WV(OP/2,`;
  208. M?^7'!MX`__^)-AP`N/__7EW"`@!5B^R+7@31XX&GL@#__;1"BD8*BUX$BTX(+
  209. MBU8&S2%R`NL%4.B=_YE=PU6+[(M.!+0\BU8&S2%R`NL$4.B%_UW"!`!5B^R+`
  210. M7@0KR2O2M$#-(5W"`@!5B^R#[`165XMV!O?&`,!U#*':`"4`P(O6"]"+\O?&?
  211. M``%T>J'<`"%&"(M&"*F``74'N`$`4.@W_S/`4/]V!.AF_EE9B4;^/?__=2GW4
  212. M1@B``'0$,\#K`[@!`(E&_O?&\`!T*?]V!#/`4.AJ_XOX"\!]$^FQ`/?&``1T_
  213. M([A0`%#H[O[IHP!7Z#K^6>L7_W8$_W;^Z$'_B_@+P'UJZ8@`QT;^``!6_W8$?
  214. MZ(0`65F+^`O`?%,SP%!7Z)#^65F)1ORI@`!T'H'.`"#WQ@"`=!XE_P`-(`!0\
  215. MN`$`4%?H;?Z#Q`;K"O?&``)T!%?H!/^#?OX`=!3WQO``=`ZX`0!04/]V!.BF<
  216. M_8/$!@O_?!WWQ@`#=`6X`!#K`C/`B]:!XO_X"]"+W]'CB9>R`(O'7UZ+Y5W#+
  217. M58OL3$RP`8M.!O?!`@!U"K`"]\$$`'4"L`"+5@2Q\").!@K!M#W-(7(:B4;^>
  218. MBU[^T>.+1@8E__@-`(")A[(`BT;^ZP10Z/K]B^5=PU6+[(/L!%97BT8(0#T"!
  219. M`'(-BUX$T>/WA[(```)T!3/`Z8P`_W8(_W8&_W8$Z(8`@\0&B4;^0#T"`'(-)
  220. MBUX$T>/WA[(``(!T!8M&_NMBBT[^BW8&'@>+_HO>_*P\&G0M/`UT!:KB].L<P
  221. MXO`&4[@!`%"-1OU0_W8$Z#L`@\0&6P?\BD;]JCO[=0+KF>L@4[@!`%#WV1O`Q
  222. M4%'_=@3HEOV#Q`B+7@31XX&/L@```ELK^Y=?7HOE7<-5B^RT/XM>!(M."(M6N
  223. M!LTA<@+K!%#H*?U=PU6+[(M>!-'C]X>R```(=!.X`@!0,\`STE!2_W8$Z$3]5
  224. M@\0(M$"+7@2+3@B+5@;-(7(/4(M>!-'C@8^R```06.L$4.CB_%W#``"/!CX!W
  225. MCP9``8\&0@$NC!YQ"XDV1`&)/D8!_(X&&`"^@``RY":L0(S%A]:3BS82`$9&1
  226. MN0$`@#X:``-R$8X&%`"+_K%_,L#RKN-N@/%_4(O!`\-`)?[_B_PK^')<B^<&C
  227. M'Q8'44GSI#+`JH[=A_*'V8O#B]!#Z!D`=P=R0.@2`'?Y/"!T"#P-=`0\"77H!
  228. M,L#KY`O`=`="J@K`=0%#AN`RP/GC%:Q)+")T#P0B/%QU!X`\(G4"K$D+]L/IY
  229. M5_59`\HNCAYQ"XD>.@%#`]N+](OL*^MRYHOEB2X\`>,.B78`@\4"-JP*P.#ZU
  230. M=/`SP(E&`"Z.'G$+BS9$`8L^1@'_-D(!_S9``:$Z`:,,`*$\`:,.`/\F/@$`E
  231. M````````````````$',+`````````````````````%!A;FEC+@T*````````[
  232. M`````````````````````,QDS&0`````````````````!`0`57-A9V4Z(&=L)
  233. M8V]M<"!X>'@N9VP@6VQI<W1F:6QE70H`0V]U;&1N)W0@9FEN9"``5&]O(&UA&
  234. M;GD@9FEL97,*`$-O=6QD;B=T(&]P96X@`%)E861I;F<Z"@!#:&]K:6YG+BXNW
  235. M("!.965D('-P86-E+BXN"@```'8&=@9V!@$@`B`"(`2@`J#_____________6
  236. M__________________________\`0/__````$P("!`4&"`@(%!4%$_\6!1$".
  237. M_________________P4%_____________________P__(P+_#_____\3__\"<
  238. >`@4/`O___Q/__________R/_____(_\3_P``````F
  239. ``
  240. end
  241. sum -r/size 17070/5111 section (from "begin" to "end")
  242. sum -r/size 23539/3630 entire input file
  243. ----------------- cut here ---------------------------------------------
  244. --
  245. Sincerely,                 berg%cip-s01.informatik.rwth-aachen.de@unido.bitnet
  246.            Stephen R. van den Berg.
  247. "I code it in 5 min, optimize it in 90 min, because it's so well optimized:
  248. it runs in only 5 min.  Actually, most of the time I optimize programs."
  249. received data 10603 bytes 128.68 secs
  250.  
  251.  
  252.